home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
parallax
/
ibm_pc_d.exe
/
SAMPLES
/
PRIM.P
< prev
next >
Wrap
Text File
|
1992-11-06
|
439b
|
21 lines
SYSTEM sieve;
CONFIGURATION list [200];
CONNECTION (* none *);
SCALAR prime : INTEGER;
VECTOR candidate: BOOLEAN;
BEGIN
PARALLEL
candidate := id_no >= 2;
WHILE candidate DO
prime:= REDUCE.FIRST(id_no);
WriteInt(prime,10); WriteLn;
IF id_no MOD prime = 0 (* remove multiples *)
THEN candidate := FALSE
END
END
ENDPARALLEL
END sieve.